home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / Pete Johnson / TSet 1.6<source>.sit / Globals.p < prev    next >
Encoding:
Text File  |  1990-03-26  |  619 b   |  38 lines  |  [TEXT/PJMM]
  1. unit Globals;
  2.  
  3. {    Created June 29, 1989, to organize global variables            }
  4.  
  5. interface
  6.  
  7. const
  8.     NULL = chr(0);
  9.     CTLA = chr(1);
  10.     TAB = chr(9);
  11.     ENDLINE = chr(13);
  12.     SPACE = chr(32);
  13.  
  14. type
  15.     MyByte = byte;
  16.     OneString = STR255;
  17.     OneStringPtr = ^OneString;
  18.     OneStringHdl = ^OneStringPtr;
  19.  
  20.     Section = record
  21.             Name: string;
  22.             Limit: longint;
  23.             Age: longint;
  24.             Number: integer;
  25.             Backup: boolean
  26.         end;
  27.     SectionPtr = ^Section;
  28.     SectionHandle = ^SectionPtr;
  29.  
  30. var
  31.     doneFlag: boolean;
  32.     HiStringNo, CurrentResFile: integer;
  33.     MyWindow: WindowPtr;
  34.     DateString, TimeString, TabbyStamp: str255;
  35.  
  36. implementation
  37.  
  38. end.        {    Globals unit    }